home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / comm1 / voygrums.lha / voyagermailtoums.rexx < prev   
OS/2 REXX Batch file  |  1996-05-07  |  2KB  |  64 lines
  1. /* $VER: voyagermailtoums.rexx 0.1  (07.05.96)    */
  2. /* by Lothar Bartsch (lbartsch@anjou.hb.provi.de) */
  3. /*                                                */
  4. /* This script use mailto: with Voyager and UMS   */
  5. /*                                                */
  6. /* Usage:                                         */
  7. /* Select AWeb - Network - Other                  */
  8. /*                                                */
  9. /* Insert at mailto: App                          */
  10. /*                                                */
  11. /*      sys:rexxc/rx voyagermailtoums.rexx %h     */
  12. /*                                                */
  13. /* Change name,password and server in this skript */
  14.  
  15. /* Insert your configs here */
  16. name = ""
  17. password = ""
  18. server = ""
  19. editor = "ed sticky"
  20.  
  21. parse arg user '@' addr .
  22. options results
  23.  
  24. CALL AddLib("rexxsupport.library", 0, -30, 0)
  25. CALL AddLib("rexxreqtools.library", 0, -30, 0)
  26. CALL AddLib("ums.library", 0, -210, 11)
  27. CALL UMSInitConsts()
  28.  
  29. subj = rtgetstring(,"Insert a subject for this message:","VoyagerMailtoUMS")
  30. IF rtresult = 0 THEN EXIT
  31.  
  32. msgfile = 't:.temp.'Pragma(ID)
  33.  
  34. SHELL command editor msgfile
  35. IF ~EXISTS(msgfile) THEN EXIT
  36.  
  37. /* Login */
  38.  
  39. account = UMSLogin(name,password,server)
  40. IF account = 0 THEN DO
  41.   EXIT 10
  42. END
  43.  
  44. /* Write the message */
  45.  
  46. DROP msg.
  47. msg.UMSCODE_MsgText_FILE = msgfile
  48. msg.UMSCODE_ToAddr       = user'@'addr
  49. msg.UMSCODE_ToName       = user
  50. msg.UMSCODE_Subject      = subj
  51.  
  52. num = UMSWriteMsg(account, msg.)
  53.  
  54. /* Logout */
  55.  
  56. IF account ~= 0 THEN DO
  57.   CALL UMSLogout(account)
  58.   account = 0
  59. END
  60.  
  61. call delete(msgfile)
  62.  
  63. EXIT
  64.